Public Class Server_Factory
    Public Function AllServers() As ArrayList
        Dim oFactory As New DBServer_Factory

        Return oFactory.AllActiveServers
    End Function

    Public Function AllActiveServers() As ArrayList
        Dim oFactory As New DBServer_Factory

        Return oFactory.AllActiveServers
    End Function

    Public Function GetServerByID(ByVal lServerID As Long) As Server
        Dim oServer As New Server(lServerID)
        oServer.Load()

        Return oServer
    End Function
End Class
